#!/usr/bin/env perl

use utf8;
use strict;
use 5.010;

print "system path :$ENV{PATH}\n";

my %last_name = (
	fred	=> 'flintstone',
	dino	=> undef,
	barney	=> 'rubble',
	betty	=> 'rubble',
);


while(my ($k, $v) = each %last_name ){
	printf "'%20s' => '%-20s'\n" => $k => $v;
}
